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Abstract. Cool giant and supergiant stars generally present low velocity winds with 
high mass loss rates. Several models have been proposed to explain the acceleration 
process of these winds. Although dust is known to be present in these objects, 
^ ■ the radiation pressure on these particles is uneffective in reproducing the observed 

physical parameters of the wind. The most promising acceleration mechanism cited 
in the literature is the transference of momentum and energy from Alfven waves 
^.f^ • to the gas. Usually, these models consider the wind to be isothermal. We present 

a stellar wind model in which the Alfven waves are used as the main acceleration 
mechanism, and determine the temperature profile by solving the energy equation 
^ ' taking into account both the radiative losses and the wave heating. We also deter- 

04 ^ mine self-consistently the magnetic field geometry as the result of the competition 

00 . between the magnetic field and the thermal pressures gradient. As main result, we 

C3 ' show that the magnetic geometry present a super-radial index in the region where 

the gas pressure is increasing. However, this super-radial index is greater than that 
observed for the solar corona. 
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2 ■ 1. Introduction 

I After decades of theoretical and observational studies of cool giant and 

supergiant stars, the mechanisms by which the wind acceleration occurs 
^ \ are still poorly understood. Compared to the Sun, these stars are known 

^ • to present continuous mass loss process occuring at high rates, typically 

' 10"^° - 10"^ Mq yr-^ but in low velocity winds {u^o < 300 km s"^) 

(Dupree 1986, Lamers &: Cassinelli 1999). Radiative pressure on grains 
transfers momentum to these particles being responsible for their accel- 
eration and, if gas and dust are dynamically well coupled, grains drag 
the gas outwards resulting in the mass ejection. However, for stationary 
envelopes {e.g. pre-AGB phase) dust driven theoretical models have 
lately failed in reproducing the wind properties, mainly because the 
dust-gas coupling is not effective (Sandin & Hofner 2003). Observa- 
tionally, Guandalini et al. (2005) found no strong correlation between 
the mass loss rates and the luminosities of AGB stars. Their main 
conclusion is that, if radiative pressure is important in powering these 
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stellar winds, it must occur in addition to other mechanism. Another 
drawback to the radiation pressure models is the need for the dust 
formation region to be close to the star. Recent high resolution Doppler 
measurements show that winds are mainly accelerated near the stellar 
surface (r < 1.3 R^) (Airapetian, Carpenter Sz Ofman 2003), while 
grains arc expected to grow and survive at even larger distances. 

In this sense, another mechanism must be used to accelerate the 
gas near surface. The most promising mechanism for the winds of cool 
stars is the transference of momentum and energy to the wind from 
MHD waves. Hartmann & MacGregor (1980) showed that it would be 
possible to reproduce the observed low wind velocities and the high 
mass loss rates of the cool giant and supergiant stars if some kind 
of wave damping mechanism is effective at the wind basis (r < 2 R^). 
Jatenco-Pereira & Ophcr (1989) studied the effects of different damping 
mechanisms and magnetic field divergence and they showed that the 
magnetic field divergent geometry can rapidly dilute the wave fiux and 
also slow down the wind. Their magnetic field geometry was based 
on empirical relations found from observations of the solar wind. This 
because in general, in lack of direct measurements of the magnetic field 
fluctuations and structure in other stars, we have to simply extrapolate 
our knowledge from solar observations. 

In this work, we model the acceleration and heating of a late-type 
supergiant stellar wind considering an outwarded flux of Alfven waves. 
We solve the MHD equations to, sclf-consistently, determine the mag- 
netic field geometry and the wind temperature and velocity profiles. In 
section 2, we describe the model basic equations. In section 3 we present 
the results and the discussions, followed, by the work conclusions. 



The basic wind equations are based on mass, momentum, energy and 
magnetic flux conservation. The first is given by puA{r) = pQUoA{rQ), 
where u is the flow velocity, p is the gas density and A{r) is the flow 
cross-section area at a distance r from the center of the star. The index 
"0" indicates the variable is being evaluated at the stellar surface. 
Assuming a steady flow, the momentum equation can be written as: 



where P = pkBT/m is the thermal pressure, ks is the Boltzmann 
constant, T is the gas temperature, m is the mean mass per particle, G 
the gravitational constant and 6B the wave magnetic field amplitude. 



2. The Model 




(1) 
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In Equation (1), the right hand side contains the gravitational force 
density and the thermal and wave pressure gradients, respectively. The 
last term represent the magnetic force. The wave amplitude (SB) is 
related to the wave energy density (e) by e = {{6B)'^) /{Air). 



2.1. Thin fluxtube approximation 



Typically, considering magnetic field strengths > 1 G, the wind basis 
is characterized by the relation /3 = P/(i?^/87r) <C 1, i.e. the plasma is 
magnetically dominated. In this case, if we assume the wind to be ini- 
tiated at funnels anchored at the stellar surface, which arc surrounded 
by a plasma with lower magnetic field strength, the magnetic pressure 
inside will push the gas and the funnel field lines will expand. The 
funnel cross-section radius (TZ) will grow super-radially Tip to a limit 
value (TZm). This limiting cross-section radius depends both on the 
relation between external and internal magnetic field strengths and 
on the filling factor (a). As the area increases, the internal magnetic 
strength diminishes until the equilibrium between internal and external 
magnetic pressures is reached. If the internal magnetic field strength is 
much larger than the external, the flux tubes cross-section will depend 
on the filling factor only. The filling factor is the ratio between the area 
of the stellar surface covered by funnels and the total area. The averaged 
maximum area that a funnel could reach would be = A(ro)/a or, 
in terms of the cross-section radius: TZm = TZ.o/ a^^^ . For the quiet Sun, 
the funnels that merge to form the coronal holes cover about 10% of 
the total surface. 

In this work, at the wind basis, we assume the plasma to be magneti- 
cally dominated and the left hand side of Equation (1) may be neglected 
if compared to the other terms. Then, by using V-B = and a power se- 
ries expansion method proposed by Pneuman, Solanki & Stenflo (1986), 
we can determine self-consistently the magnetic field geometry with- 
out assuming any empirical function for the funnel cross-section with 
distance. 

Following Pneuman, Solanki & Stenflo (1986), using the thin flux- 
tube approximation. Equation (1) and V • B = are described near 
stellar surface, which in our model occurs up to ~ 1.4 ro, by: 



/dP P\ fdBy dBr , 
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and 



1 9 / „ N 

ydy 



or 



(4) 



where H = ksTr"^ /GmMi, is the scale height. The thin fluxtube ap- 
proximation is rehable when the cross-section radius TZ is neghgible 
compared to both the scale height of the external medium and any 
variation scales along the tube (Spruit 1981; Longcope and Klapper 
1997). 

Expanding all variables as power series in y {i.e. along the tube 
radius), and neglecting terms of orders higher than 2, Equations (2) — 
(4) give rise to a differential equation for the fluxtube cross-section: 



A{ro) (Airo)\ 
2Hl [dr"^ V A{r) J 



Air)) 



(A{ro)\ 




2A{r)dr \ A{r) J _ 

2 



+ 2/3 



(5) 



where /3 = ATiPir^) / Bq, a. is the filling factor and i?cxt is the magnetic 
field strength outside the fluxtube. In the following calculations we 
fixed its value to be 10~^B{r). 

To simplify the set of equations, we will define the funnel area expan- 
sion as a function of radial distance by: A{r) = A (tq) (r/ro)^ , where 
S is the expansion index, which is super-radial {S > 2) at the wind 
basis up to the merging radius when S becomes 2. S is determined 
from Equation (5). 



2.2. The wind equations 



In a consistent model, to avoid assuming any empirical function for 
the magnetic field geometry and to determine the wind temperature at 
each wind position (r), we have to solve the energy equation, which is 
determined from the balance between wave heating and the adiabatic 
expansion and radiative coolings (Hartmann, Edwards &: Avrett 1982). 
Thus, neglecting conduction, we write the energy equation as: 

d fu^ 5 ksT GM,\ ude 
f^Tr\-2^2-^-^)^2Tr = ^'^-'^'^^^ 

where Q is the wave heating rate, i.e. the rate at which the gas is 
being heated due to dissipation of wave energy, and Pr is the radiative 
cooling rate, both in erg cm~^ s~^. The wave heating can be written as 
Q = e{u + va)/L and the radiative cooling is given by Pr = ArieriH, 
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where Ug is the electron density, nn is the hydrogen density and A 
is the radiative loss function. Here, we adopt the A function given by 
Schmutzler & Tscharnuter (1993) and calculate with the modified 
Saha equation given by Hartmann &; MacGregor (1980). 

The wave energy density at each step may be calculated using a 
WKB approximation, from the wave action conservation. This approx- 
imation can often be employed when the properties of the medium vary 
slowly on a scale comparable to the wavelength (Usmanov et al. 2000) . 
Under this assumption, the wave energy density is dissipated as follows: 

Mo f i + Mo Y r ri 1 

where M = u/va is the Alfven-Mach number, va = (-B/^/ivrp) the 
Alfven speed and L the wave damping length. Also, the wave flux (0^) 
at ro is evaluated by (j)AQ = cqVAq (1 + 1.5Mo). We consider the non- 
linear damping mechanism, which length is given by (Jatenco-Pereira 
& Opher 1989): 

where {{6v)'^) is the averaged squared perturbation velocity amplitude 
and Lq is the damping length at the wind basis, which is mainly de- 
pendent on the assumed wave frequency spectrum (Lagage &; Cesarsky 
1983). Here, we will let it as a free parameter. 

The equations presented here fully describe the wind parameters 
and the magnetic field geometry under the given assumptions. In the 
next section, we show the main results by applying these equations in 
a typical cool supergiant star and compare them with previous works. 



3. Results and Discussions 

For the last decades, the validity of a wind model was limited to simply 
reproduce the terminal velocity and the mass- loss rate of a given star. 
As a consequence, a number of accelerating mechanisms were found in 
accordance to observations. However, with the appearance of high reso- 
lution observations from more sensitive intruments, in the near future, 
the radial profiles of the wind parameters will become measurable and 
will be decisive on the choice of the wind model. 

Here, we obtained the wind paramenter profiles applying the de- 
scribed model on a cool supergiant star with = 16 Mq, tq = 400 
R©, po = 10-^2 g cm-3, Bo = 10 G and To = 3500 K, as used by 
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Figure 1. The magnetic field structure for a constant super- radial index S = 5 
(dashed line) and that determined self-consistently in our model (solid line). 



Hartmann &; MacGregor (1980) in their model star 4. We also assumed 
a filling factor a = 0.1, according to solar observations. For these stars, 
observational data reveal typical mass- loss rates of M ~ lO"'^ - 10"'^ 
Mq yr~^ and terminal velocities of u ~ 70 km s"^. Unfortunately, the 
available data are limited in spatial resolution for most of the stars, 
and it is not possible to fit the complete radial profiles. 

Assuming a surface magnetic field strength Bq = 10 G, an Alfven 
waves flux of (f)Ao = 10^ erg cm~^ at the wind basis and a low 
damped wave flux (Lq = 5 ro). both the wind terminal velocity and 
the mass loss rate obtained were consistent with the observations. This 
value corresponds to a wave amplitude of ^y {{6By) ~ 3 x 10~^ Bq, 
which is very plausible for a turbulent medium as that at the stellar 
surface (Suzuki & Inutsuka 2005). 

The velocity and temperature profiles for this case are shown in 
Figure 2. The velocity profile reveals a peak of n > 100 km s~^ at 
r < 2.0 ro, and slightly decreases for larger distances until reaching the 
observed value. The temperature profile presents an initial negative 
gradient reaching temperatures T < 2500 K in a narrow region. Also, 
near r = 1.5 tq the temperature reaches the maximum value of ~ 6000 
K. For r > 3.0 ro, where the wave heating and the radiative losses are 
low, the temperature decreases due to the adiabatic expansion. 



4. Conclusions 

We propose a self-consistent wind model to determine the parameters 
profiles for a supergiant late-type star. To determine the magnetic 
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5 1(P 

Figure 2. The wind velocity profile and the wind temperature profile for the best 
fitting parameters in the case of low damped waves. 

field geometry we used an expansion metliod over tlie wind physical 
parameters as proposed by Pneuman, Solanki &; Stenflo (1986). Near 
surface, the magnetic pressure inside the flux tubes are higher than that 
of the surrounding medium, forcing the field lines to curve. We found 
an initial super-radial expansion factor 5 > 30 at the wind basis, much 
higher than the value used by previous authors (e.g. Jatenco-Pereira 
& Ophcr 1989, Bravo & Stewart 1997, Dobrzycka et al. 1999) that 
included empirical relations to account for the magnetic field geometry 
based on solar observations. 

Considering a supergiant late-type star, we obtained the wind ve- 
locity and temperature profiles. Typically, Alfven waves driven winds 
result in high velocity winds {u > 100 km s~^), unless some strong 
wave damping mechanism takes place at the wind basis. We showed 
that this conclusion is correct in the case of low divergent magnetic 
field structures. In this work, the strong divergence is responsible for 
a rapid wave spatial dilution near surface, resulting in a lower wind 
velocity even for low damped waves. 

The obtained results were consistent to the typical mass-loss rate 
(M :^ lO^'' — 10~^ Mq yr^-*^) and the terminal velocity (u ~ 70 km 
s~^) observed for these objects. The velocity profile reveals an efficient 
acceleration at r < 1.5 ro, reaching the maximum value ~ 100 km 
s~^. In this region the wind is mainly accelerated by the wave energy 
density and the thermal pressure gradients. Afterwards, the absence 
of the wave acceleration and the cooling gas result in a decrease of 
the velocity to the observed values. For the temperature, assuming 
a weakly damped wave flux, the radiative losses and the expansion 
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cooling are dominant near surface, and the temperature gradient is 
initially negative. The temperature falls to ~ 2500 K in a sharp region 
and then, as density decreases as the wind accelerates and the flux 
tube expands, it increases up to ~ 6000 K at r < 2.0 rg. For higher 
distances, where the radiative losses are low and the wave heating is no 
longer effective, the temperature decreases mainly due to the adiabatic 
expansion. 

Although the present calculations provided a new and interesting 
picture of the physical processes involving the heating and the acceler- 
ation mechanisms of cool stellar winds, the model presents a limitation. 
The wind equations were solved considering the thin fluxtube approx- 
imation. Mainly for a high divergence wind, a complete 2-D set of 
equations must be employed in order to obtain more precise results. 
This step should be concluded in the near future. 
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1. Implementation 
1 \ProvidesFile{klu9.clo}[\f iledate ] 
1.1. Section size commands 

added command: \little. This is identical to \tiny here. Allowed type provided values: 5/6, 
6/7, 7/8, 8/9.5, 9/11, 10/12, 11/13, 12/14, 14/18, 17/22, 20/25. 



2 \renewcoimnand\normalslze{'/, 

3 \@setf ontsize\normalsize\@ixpt{ll}'/, 

4 \abovedisplayskip 8.5\p(S \aplus3\pS \Sminus4\pS 

5 \abovedisplayshortskip \za \aplus2\p(3 

6 \belowdisplayshortskip 4\p(S \aplus2\p® \@minus2\pS 

7 \belowdisplayskip \abovedisplayskip 

8 \let\listi\QlistI} 

9 Xnormalsize 

10 \newconmiand\small{'/, 

11 \asetf ontsize\small\(avliipt{9 . 5}'/, 

12 \abovedisplayskip 6\p(S \(Splus2\p@ \aininus4\pQ 

13 \abovedisplaysliortskip \z® \®plus\pa 

14 \belowdisplayshortskip 3\p8 \Splus\pa \Sminus2\p@ 
16 \def \Slisti{\leftmargin\leftmargini 

16 \topsep 3\pa \Qplus\pa \aminus\pa 

17 \parsep 2\pa \Splus\pa \aminus\pa 

18 \itemsep Xparsep}"/. 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newconmiand\f ootnotesize{'/, 

22 \@setf ontsize\f ootnotesize\aviipt{8}7, 

23 \abovedisplayskip 4\p@ \@plus2\p@ \aininus2\pa 

24 \abovedisplayshortsklp \za \aplus\pa 

25 \belowdisplayshortskip 2\pa \aplus\pa \aminusl\p® 

26 \def \aiisti{\lef tmargin\lef tmargini 

27 \topsep 2\pS \aplus\pS \Sminus\pS 

28 \parsep INpS \aplus\pS \aminus\pS 

29 \itemsep \parsep}'/, 

30 \belowdisplayskip \abovedisplayskip 



31 } 

32 \newcoimiiaiid\scriptsize{\asetf ontsize\scriptsize\avipt\®viipt} 

33 \newcoiimaiid\little{\asetf ontsize\little\avpt\avipt} 

34 \newconmiaiid\tiny{\asetf ontsize\tiny\avpt\avipt} 

36 \newconmand\large{\Qsetf ontsize\large\axpt\8xiipt} 

36 \newcoiimaiid\Large{\Ssetf ontsize\Large\exiipt{14}} 

37 \newcoiimaiid\LARGE{\asetf ontsize\LARGE\®xivpt{18}} 

38 \newconmand\huge{\asetf ontsize\huge\axviipt{22}} 

39 \newconmand\Huge{\asetf ontsize\Huge\axxpt{25}} 

1.2. Various values 

Note that \hoff set and \voff set are both compensated. This makes the calculations below 
easier. 

40 \setlength\hof f set{-liii} 

41 \setlength\vof f set{-lin} 

42 \setlength\par indent {14\pa} 

43 \setlength\headlieight{12\pS} 
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44 \setlength\headsep •{12\p@} 

45 \setlength\topskip {10\p@} 

46 \setlength\f ootskip {25\pa} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\pa} 

49 \setlength\maxdepth {.5\topskip} 

50 \setlength\amaxdepth\maxdepth 

51 \setlength\columnsep{10pt} 

52 \setlength\columnseprule{Opt]- 

53 \setlength\f boxsep{3pt} 
64 \setlength\fboxrule{.4pt} 

1.3. Textheight and TEXTWIDTH 

These axe the main reason for the existence of these files. For some stupid reason, I^TJ^X calculates 
textwidth out of \paperwidth.. We did want to support letter paper, but our \textwidth is fixed, 
with the margins being calculated. 

Presume \textwidth and \marginparwidth arc set iu the stylefile, or we're in trouble. The 2pc 
value is used to compensate for the 'dead' corners in most laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble and later on 
in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocument{'/, 



57 \setlength\atempdima{\paperwidth}7, 

58 \addtolength\atempdima{-\textwidth}y, 

59 \divide\atempdlma by 2 

60 \setlength\atempdimb\marginparwidth 

61 \addtolength\atempdimb\marginparsep 

62 \addtolength\atempdimb{2pc}y, 

63 \ifdlm \atempdima <\atempdimb 

64 \esettopoint\atempdimb 

66 \GenericError{Polntsize}{Pointsize Error: Marginpars disabled]-{]-{You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide. \MessageBreak 

68 The allowed value for margin space: (\the\Stempdima) . Needed value: 

69 (\the\atempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 }•/. 

74 \marginparwidth \zS 

75 \marginparsep \za 
7B \fi 

77 \ifdim \atempdima <2pc 

78 \atempdimb=\paperwidth 

79 \advance\atempdimb by -4pc 

80 \asettopoint\atempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}{}{You 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total\MessageBreak 

84 (Which is: \the\Stempdimb) . Please press X and try again. 
86 }•/. 

86 \f i 

87 \oddsidemargin \atempdima 

88 \evensidemargin \9tempdima 
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These calculations arc a lot easier, \textheight should have been set already. This does not 
check for the correct placcrrieut of the identification line!! 

89 \setlength\atempdima{\paperheight} 

90 \addtolength\@tenipdinia{-\f ootskip} 

91 \addtolength\atempdima{-\headheight} 

92 \addtolength\atempdima{-\headsep} 

93 \setlength\atempdimb{\3tempdima)- 

94 \addtolength\atempdima{-\textheight}- 

95 \dlvlde\@tempdlma by 2 

96 \ifdlm \@tempdlma <2pc 

97 \advaiice\8tempdimb by -4pc 

98 \Ssettopoint\Stempdimb 

99 \GenericError{Polntslze}{Pointsize Error: Invalid sizes glven}{}{You 

100 made your \string\textheight\space (\the\texthelght) 

101 more than the available total . \MessageBreak 

102 (Which Is: \the\Stempdlmb) . Please press X and try again. 

103 }"/. 

104 \fi 

105 \setlength\topmargin{\Stempdima} 

106 \setlength\ldSboxhelght{\Stempdlma} 

107 \advance\ldSboxhelght by -2pc 

108 } 

109 \setlength\footnotesep{6\pS} 

110 \setlength{\skip\footlns}{9\pS \®plus 4\pa XSmlnus 2\pa} 



1.4. Lists 

List default values 

111 \setlength\partopsep{2\pQ \9plus l\pQ \9mlnus l\pS} 

112 \setlength{\lef tmargini}{l . 9em} 

113 \setlength{\leftmarginil}{2em} 

114 \setlength{\lef tmargini 1 1}{ 1 . 7em} 

115 \setlength{\lef tmarginiv}-[l .4em} 

116 \setlength{\lef tmarginv}{lem} 

117 \setlength{\lef tmarginvi}{lem} 
lis \setlength{\labelsep}{.4eiii} 

119 \setlength{\labelwidth}{\lef tmargini} 

120 \addtolength{\labelwldth}{-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. This results in 
very small labels for the inner lists. 

121 \def \aiistl{7. 

122 \leftmargin \lef tmargini 

123 \topsep 8\pS \Splus2\pa \Sminus2\pa 

124 \partopsep 2\pS XSplus l\pa \aminus l\pa 

125 \itemsep 4\pa \aplus 2\pS \aminus l\pa 

126 \parsep 4\p@ \Splus 2\pe \Sminus l\pa } 

127 \def \aiistii{*/. 

128 \leftmargin \lef tmargini! 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p@ \aplus 2\pa XSmlnus l\p9 

132 \parsep 2\pa \@plus INpS \@minus l\p9 

133 \ltemsep \parsep} 
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134 Ndef \Slistiii-['/. 

136 \leftmargin \lef tmarginiii 

136 \labelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p@ \aplus l\p9 \9minus INpS 

139 \parsep XzO 

140 Npartopsep l\pS XOplus 0\pS \Sminus l\p@ 

141 \itemsep \topsep} 

142 \def \@listiv{*/. 

143 \setlength{\lef tmargin}{\lef tmarginiv}'/, 

144 \setlength{\labelwidth}{\lef tmarginiv}'/, 

145 \addtolength{\labelwidth}{-\labelsep}} 

146 \def \Slistv{'/. 

147 \setlength{\leftmargin}{\leftmarginv}°/, 

148 \setlength{\labelwidth}{\leftmarginv}°/, 

149 \addtolength{\labelwidth}{-\labelsep}} 

150 \def \Slistvi{% 

151 \setlength{\leftmargin}{\leftmarginvi}'/. 

152 \setlength{\labelwidth}{\lef tmarginvi}'/, 

153 \addtolength{\labelwidth}{-\labelsep}} 

154 \let\@listi\@listl 

155 \Slisti 



1.5. Float separation parameters 
Separation on text pages. 

156 \setlength\f loatsep{10\pa \(Splus 2\pa XOminus 2\pa} 

157 \setlength\textf loatsep{18\pa \aplus 2\pa \aminus 4\pa} 

158 \setlength\intextsep{10\pa \aplus 2\pa \aminus 2\pa} 

159 \setlength\dblf loatsep{10\pa \aplus 2\pa Xaminus 2\pa} 

160 \setlength\dbltextf loatsep{18\pa \®plus 2\pa \®minus 4\pe} 

Separation on float pages 

161 \setlength\afptop{0\pa \aplus if il} 

162 \setlength\afpsep{8\pa \aplus 2f il} 

163 \setlength\afpbot{0\pa \aplus If il} 

164 \setlength\adblfptop{0\pa \aplus If il} 

165 \setlength\adblfpsep{8\pa \@plus 2f il} 

166 \setlength\adblfpbot{0\p8 \8plus If il} 
167 

168 \endinput 
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1. Implementation 
1 \ProvidesFile{klut9.clo}[\f iledate ] 
1.1. Section size commands 

added command: \little. This is identical to \tiny here. Allowed type provided values: 5/6, 
6/7, 7/8, 8/9, 9/10.5, 10/11.5, 11/13, 12/14, 14/18, 17/22, 20/25. 



2 \renewcoimnand\normalslze{'/, 

3 \@setf ontsize\normalsize\@ixpt{10 . 5}'/. 

4 \abovedisplayskip 8.5\p(S \aplus3\pS \Sminus4\pS 

5 \abovedisplayshortskip \za \aplus2\p(3 

6 \belowdisplayshortskip 4\p(S \aplus2\p® \Sminus2\pS 

7 \belowdisplayskip \abovedisplayskip 

8 \let\listi\QlistI} 

9 Xnormalsize 

10 \newconmiand\small{'/, 

11 \asetf ontsize\small\(avliipt{9}'/, 

12 \abovedisplayskip 6\p(S \(Splus2\p@ \aininus4\pQ 

13 \abovedisplaysliortskip \z® \®plus\pa 

14 \belowdisplayshortskip 3\p8 \Splus\pa \Sminus2\p@ 
16 \def \Slisti{\leftmargin\leftmargini 

16 \topsep 3\pa \Qplus\pa \aminus\pa 

17 \parsep 2\pa \Splus\pa \aminus\pa 

18 \itemsep Xparsep}"/. 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newconmiand\f ootnotesize{'/, 

22 \@setf ontsize\f ootnotesize\aviipt{8}7, 

23 \abovedisplayskip 4\p@ \@plus2\p@ \aininus2\pa 

24 \abovedisplayshortsklp \za \aplus\pa 

25 \belowdisplayshortskip 2\pa \aplus\pa \aminusl\p® 

26 \def \aiisti{\lef tmargin\lef tmargini 

27 \topsep 2\pS \aplus\pS \Sminus\pS 

28 \parsep INpS \aplus\pS \aminus\pS 

29 \itemsep \parsep}'/, 

30 \belowdisplayskip \abovedisplayskip 



31 } 

32 \newcoimiiaiid\scriptsize{\asetf ontsize\scriptsize\avipt\®viipt} 

33 \newcoiimaiid\little{\asetf ontsize\little\avpt\avipt} 

34 \newconmiaiid\tiny{\asetf ontsize\tiny\avpt\avipt} 
36 \newconmand\large{\Qsetf ontsize\large\8xpt{ll .5}} 

36 \newcoiimaiid\Large{\Ssetf ontsize\Large\exiipt{14}} 

37 \newcoiimaiid\LARGE{\asetf ontsize\LARGE\®xivpt{18}} 

38 \newconmand\huge{\asetf ontsize\huge\axviipt{22}} 

39 \newconmand\Huge{\asetf ontsize\Huge\axxpt{25}} 

1.2. Various values 

Note that \hoff set and \voff set are both compensated. This makes the calculations below 
easier. 

40 \setlength\hof f set{-liii} 

41 \setlength\vof f set{-lin} 

42 \setlength\par indent {14\pa} 

43 \setlength\headlieight{12\pS} 
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44 \setlength\headsep •{12\p@} 

45 \setlength\topskip {10\p@} 

46 \setlength\f ootskip {25\pa} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\pa} 

49 \setlength\maxdepth {.5\topskip} 

50 \setlength\amaxdepth\maxdepth 

51 \setlength\columnsep{10pt} 

52 \setlength\columnseprule{Opt]- 

53 \setlength\f boxsep{3pt} 
64 \setlength\fboxrule{.4pt} 

1.3. Textheight and TEXTWIDTH 

These axe the main reason for the existence of these files. For some stupid reason, I^TJ^X calculates 
textwidth out of \paperwidth.. We did want to support letter paper, but our \textwidth is fixed, 
with the margins being calculated. 

Presume \textwidth and \marginparwidth arc set iu the stylefile, or we're in trouble. The 2pc 
value is used to compensate for the 'dead' corners in most laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble and later on 
in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocument{'/, 



57 \setlength\atempdima{\paperwidth}7, 

58 \addtolength\atempdima{-\textwidth}y, 

59 \divide\atempdlma by 2 

60 \setlength\atempdimb\marginparwidth 

61 \addtolength\atempdimb\marginparsep 

62 \addtolength\atempdimb{2pc}y, 

63 \ifdlm \atempdima <\atempdimb 

64 \esettopoint\atempdimb 

66 \GenericError{Polntsize}{Pointsize Error: Marginpars disabled]-{]-{You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide. \MessageBreak 

68 The allowed value for margin space: (\the\Stempdima) . Needed value: 

69 (\the\atempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 }•/. 

74 \marginparwidth \zS 

75 \marginparsep \za 
7B \fi 

77 \ifdim \atempdima <2pc 

78 \atempdimb=\paperwidth 

79 \advance\atempdimb by -4pc 

80 \asettopoint\atempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}{}{You 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total\MessageBreak 

84 (Which is: \the\Stempdimb) . Please press X and try again. 
86 }•/. 

86 \f i 

87 \oddsidemargin \atempdima 

88 \evensidemargin \9tempdima 
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These calculations arc a lot easier, \textheight should have been set already. This does not 
check for the correct placcrrieut of the identification line!! 

89 \setlength\atempdima{\paperheight} 

90 \addtolength\@tenipdinia{-\f ootskip} 

91 \addtolength\atempdima{-\headheight} 

92 \addtolength\atempdima{-\headsep} 

93 \setlength\atempdimb{\3tempdima)- 

94 \addtolength\atempdima{-\textheight}- 

95 \dlvlde\@tempdlma by 2 

96 \ifdlm \@tempdlma <2pc 

97 \advaiice\8tempdimb by -4pc 

98 \Ssettopoint\Stempdimb 

99 \GenericError{Polntslze}{Pointsize Error: Invalid sizes glven}{}{You 

100 made your \string\textheight\space (\the\texthelght) 

101 more than the available total . \MessageBreak 

102 (Which Is: \the\Stempdlmb) . Please press X and try again. 

103 }"/. 

104 \fi 

105 \setlength\topmargin{\Stempdima} 

106 \setlength\ldSboxhelght{\Stempdlma} 

107 \advance\ldSboxhelght by -2pc 

108 } 

109 \setlength\footnotesep{6\pS} 

110 \setlength{\skip\footlns}{9\pS \®plus 4\pa XSmlnus 2\pa} 



1.4. Lists 

List default values 

111 \setlength\partopsep{2\pQ \9plus l\pQ \9mlnus l\pS} 

112 \setlength{\lef tmargini}{l . 9em} 

113 \setlength{\leftmarginil}{2em} 

114 \setlength{\lef tmargini 1 1}{ 1 . 7em} 

115 \setlength{\lef tmarginiv}-[l .4em} 

116 \setlength{\lef tmarginv}{lem} 

117 \setlength{\lef tmarginvi}{lem} 
lis \setlength{\labelsep}{.4eiii} 

119 \setlength{\labelwidth}{\lef tmargini} 

120 \addtolength{\labelwldth}{-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. This results in 
very small labels for the inner lists. 

121 \def \aiistl{7. 

122 \leftmargin \lef tmargini 

123 \topsep 8\pS \Splus2\pa \Sminus2\pa 

124 \partopsep 2\pS XSplus l\pa \aminus l\pa 

125 \itemsep 4\pa \aplus 2\pS \aminus l\pa 

126 \parsep 4\p@ \Splus 2\pe \Sminus l\pa } 

127 \def \aiistii{*/. 

128 \leftmargin \lef tmargini! 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p@ \aplus 2\pa XSmlnus l\p9 

132 \parsep 2\pa \@plus INpS \@minus l\p9 

133 \ltemsep \parsep} 
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134 Ndef \Slistiii-['/. 

136 \leftmargin \lef tmarginiii 

136 \labelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p@ \aplus l\p9 \9minus INpS 

139 \parsep XzO 

140 Npartopsep l\pS XOplus 0\pS \Sminus l\p@ 

141 \itemsep \topsep} 

142 \def \@listiv{*/. 

143 \setlength{\lef tmargin}{\lef tmarginiv}'/, 

144 \setlength{\labelwidth}{\lef tmarginiv}'/, 

145 \addtolength{\labelwidth}{-\labelsep}} 

146 \def \Slistv{'/. 

147 \setlength{\leftmargin}{\leftmarginv}°/, 

148 \setlength{\labelwidth}{\leftmarginv}°/, 

149 \addtolength{\labelwidth}{-\labelsep}} 

150 \def \Slistvi{% 

151 \setlength{\leftmargin}{\leftmarginvi}'/. 

152 \setlength{\labelwidth}{\lef tmarginvi}'/, 

153 \addtolength{\labelwidth}{-\labelsep}} 

154 \let\@listi\@listl 

155 \Slisti 



1.5. Float separation parameters 
Separation on text pages. 

156 \setlength\f loatsep{10\pa \(Splus 2\pa XOminus 2\pa} 

157 \setlength\textf loatsep{18\pa \aplus 2\pa \aminus 4\pa} 

158 \setlength\intextsep{10\pa \aplus 2\pa \aminus 2\pa} 

159 \setlength\dblf loatsep{10\pa \aplus 2\pa Xaminus 2\pa} 

160 \setlength\dbltextf loatsep{18\pa \®plus 2\pa \®minus 4\pe} 

Separation on float pages 

161 \setlength\afptop{0\pa \aplus if il} 

162 \setlength\afpsep{8\pa \aplus 2f il} 

163 \setlength\afpbot{0\pa \aplus If il} 

164 \setlength\adblfptop{0\pa \aplus If il} 

165 \setlength\adblfpsep{8\pa \@plus 2f il} 

166 \setlength\adblfpbot{0\p8 \8plus If il} 
167 

168 \endinput 
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1 . Implementation 

1 \ProvidesFile{klul0.clo}[\filedate ] 

1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type provided 
values: 5/6, 6/7, 7/8, 8/9.5, 9/11, 10/12, 12/14, 14/18, 17/22, 20/25, 25/30. 



2 \renewcommand\normalsize{7. 

3 \(§setf ontsize\normalsize\(§xpt\(§xiipt 

4 \abovedisplayskip 10\p@ \@plus 2\p(§ \(§minus5\p@ 

5 \abovedisplayshortskip \z(§ \(§plus 3\p(§ 

6 \belowdisplayshortskip 6\p@ \@plus 3\p® \®minus3\p@ 

7 \belowdisplayskip \abovedisplayskip 

8 \let\(§listi\@listl} 
9 \normalsize 

10 \newcoiimiaiid\small-C°/» 

11 \®setf ontsize\small\(§ixpt{ll}/'. 

12 \abovedisplayskip 8.5\p@ \(§plus3\p@ \@minus4\p@ 

13 \abovedisplayshortskip \z@ \(§plus2\p@ 

14 \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ 

15 \def \@listi{\leftmargin\leftmargini 

16 \topsep 4\p@ \(§plus2\p(9 \@minus2\p(S 

17 \parsep 2\p@ \@plus\p@ \@minus\p@ 

18 \itemsep Xparsep}-"/, 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newcommand\f ootnotesize{°/, 

22 \@setf ontsize\f ootnotesize\Sviiipt{9 . 5]-°/, 

23 \abovedisplayskip 6\p@ \(§plus2\p@ \@minus4\p(S 

24 \abovedisplayshortskip \z@ \®plus\p@ 

25 \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@ 

26 \def \91isti{\lef tmargin\lef tmargini 

27 \topsep 3\p<§ \(§plus\p<§ \@minus\p@ 

28 \peirsep 2\pa \(Splus\p@ \@minus\p@ 

29 \itemsep \parsep}°/, 

30 \belowdisplayskip \abovedisplayskip 



31 } 

32 \newcommaiid\scriptsize-[\@setf ontsize\ script size\(§viipt\@viiipt} 

33 \newconmiand\little-[\(§setf orLtsize\little\i§vipt\@viipt} 

34 \newconmiand\tiiiy{\Qsetf ontsize\tiny\@vpt\@vipt} 

35 \newcommand\large{\@setf ontsize\large\@xiipt■[14}}■ 
36 \newcoimnand\Large{\@setf ontsize\Large\(§xivpt-[18}■]■ 
37 \newcoiiimand\LARGE{\(Ssetfontsize\LARGE\@xviipt{22>} 

38 \newconmiand\huge{\@setf ontsize\huge\<axxpt{25}} 

39 \newconmiand\Huge{\<asetf orLtsize\Huge\<axxvpt{30}} 
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1.2. Various values 

Note that \hoff set and \voff set are both compensated. This makes the calculations 
below easier. 

40 \setlength\hof f set{-l . 5cm} 

41 \setlength\vof f set-COpt} 

42 \setlength\parindent ■[14\p@} 

43 \setleiigth\headheight{12\p(a} 

44 \setlength\headsep -[12\p@} 

45 \setlength\topskip {10\p@> 

46 \setlength\footskip {27.5\p(§> 

47 \setleiigth\mcirgiiiparsep{10pt}- 

48 \setlength\margirLparpush{5\p@} 

49 \setlength\maxdepth -[ . 5\topskip} 

50 \setlength\@maxdepth\maxdepth 

51 \setlength\coluiimsep-[10pt]- 

52 \setlength\coliimiiseprule{Opt} 

53 \setlength\fboxsep{3pt} 

54 \setlerLgth\fboxrule{.4pt} 

1.3. Textheight and textwidth 

These are the main reason for the existence of these files. For some stupid reason, I^TgX 
calculates textwidth out of \paperwidth. We did want to support letter paper, but our 
\textwidth is fixed, with the margins being calculated. 

Presume \textwidth and \marginparwidth are set in the stylefile, or we're in trouble. 
The 2pc value is used to compensate for the 'dead' corners in most laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble and 
later on in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocuineiit-[y, 

57 \setlength\@tempdima{\paperwidth}y, 

58 \addtolength\@tempdima{-\textwidth}% 

59 \divide\®tempdima by 2 

60 \setlength\@tempdimb\marginparwidth 

61 \addtolength\@tempdimb\marginparsep 

62 \addtolength\@tempdimb{2pc>y, 

63 \ifdim XOtempdima <\@tempdimb 

64 \(§settopoint\(§tempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}-[}-[You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\@tempdima) . Needed value: 

69 (\the\(§tempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 
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73 }7. 

74 \marginparwidth \z(§ 

75 \marginparsep \z<§ 

76 \f i 

77 \ifdim XQtempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advance\@tempdimb by -4pc 

80 \(2settopoint\@tempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}-[}-[You 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total\MessageBreak 

84 (Which is: \the\®tempdimb) . Please press X and try again. 

85 }•/. 

86 \f i 

87 \oddsidemargin lin 

88 \evensidemargin lin 

These calculations are a lot easier, \textheight should have been set already. This does 
not check for the correct placement of the identification line!! 

89 \setlength\@tempdima-C\paperheight} 

90 \addtolength\®tempdiina{-\f ootskip} 

91 \addtolength\@tempdima{-\headheight> 

92 \addtolength\@tempdima-[-\headsep} 

93 \setlength\(§tempdimb-[\(§tempdima}- 

94 \addtolength\@tempdima-C-\textheight}- 

95 \divide\@tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\@tempdimb by -4pc 

98 \(§settopoint\(§tempdimb 

99 \GenericError{Pointsize}-[Pointsize Error: Invalid sizes given}-{}-{You 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total. \MessageBreak 

102 (Which is: \the\@tempdimb) . Please press X and try again. 

103 >7. 

104 \fi 

105 \setlength\topmargin-[Opt} 

106 \setlength\id@boxheight{\@tempdima} 

107 \advance\id(Sboxheight by -2pc 

108 } 

109 \setlength\f ootnotesep{6 . 65\p(§> 

110 \setlength-C\skip\f ootins>{9\p@ \(§plus 4\p(S XOminus 2\p(a} 

1.4. Lists 

List default values 

111 \setlength\partopsep{2\p@ \@plus l\p(§ \@minus iNpO} 

112 \setlength{\lef tmargini]-{2em]- 

113 \setlength{\lef tmcirginii}-[2. 2em} 
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114 \setlength-[\lef tmcirginiii}-[l .87em} 

115 \setlength{\lef tmarginiv}-[l . 7em} 

116 \setlength{\lef tmarginv}{lem]- 

117 \setlength-[\leftmarginvi>{lem} 

118 \setlength-[\labelsep>{ . 4em> 

119 \setlength-[\labelwidth>{\lef tmargini> 

120 \ad<itolength-[\labelwidth>{-\labelsep> 

Note that lists below level 3 do nothing else then readjusting the \labelwidth.. This 
results in very small labels for the inner lists. 

121 \def \<§listir/. 

122 Meftmargin \lef tmargini 

123 \topsep 9\p@ \(§plus 3\p@ XOminus 5\p® 

124 \partopsep 3\p@ \@plus l\p@ XSminus 2\p@ 

125 \itemsep 4.5\p@ \@plus 2\p(§ \@minus l\p(§ 

126 \parsep 4.5\p@ \@plus 2\p@ \@minus l\p@ } 

127 \def \aiistii{y. 

128 Meftmargin \lef tmarginii 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p<§ \aplus 2\p@ \@minus l\p@ 

132 \parsep 2\p® \@plus l\p@ \@minus IXpO 

133 \itemsep \parsep} 

134 \def \@listiii-[y. 

135 Meftmargin \lef tmarginiii 

136 Mabelwidth Mef tmairginiii 

137 \advance\labelwidth by -Mabelsep 

138 \topsep 2\p(a \®plus l\p@ XOminus IXpO 

139 \parsep \z@ 

140 Xpairtopsep l\p@ \@plus 0\p@ \@minus l\p@ 

141 \itemsep \topsep} 

142 \def XOlistivH 

143 \setlength-[\lef tmargin}-{\lef tmarginiv}'/, 

144 \setlength{Mabelwidth}{\lef tmarginiv}"/, 

145 \addtolength{\labelwidth}-[-\labelsep}> 

146 \def \Slistv{y. 

147 \setlength{\lef tmargin}{\lef tmairginv}% 

148 \setlength-[\labelwidth>{\lef tmarginv}"/, 

149 \addtolength{Mabelwidth}{-Mabelsep}} 

150 \def \aiistvin 

151 \setlength-[\lef tmargin}{\lef tmarginvi}"/, 

152 \setlength-[\labelwidth}{\lef tmarginvi}'/, 

153 \addtolength-[\labelwidth}-[-\labelsep}> 

154 \let\@listi\(SlistI 

155 \aiisti 

1.5. Float separation parameters 
Separation on text pages. 
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156 \setlength\f loatsep{12\p<a \@plus 2\p<S XOminus 2\p(S} 

157 \setlength\textf loatsep{20\p(§ \(§plus 2\p(§ \(§minus 4\p@} 

158 \setlength\intextsep-[12\p@ \@plus 2\p@ \@minus 2\p@> 

159 \setlengtli\dblf loatsep{12\p@ \@plus 2\p(a XOminus 2\p@} 

160 \setlength\dbltextf loatsep{20\p<a XQplus 2\p<a XOminus 4\p@} 

Separation on float pages 

161 \setleiigth\@fptop{0\p@ \@plus If il> 

162 \setlerLgth\@fpsep{8\p@ \@plus 2f il} 

163 \setlength\(3fpbot{0\p(§ \(3plus If il} 

164 \setlength\@dblfptop{0\p(§ \@plus If il> 

165 \setlength\@dblfpsep{8\p@ \(§plus 2f il} 

166 \setleiigth\@dblfpbot{0\p(a \@plus If il} 
167 

168 \endinput 
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1 . Implementation 

1 \ProvidesFile{klutl0.clo>[\filedate ] 

1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type provided 
values: 5/6, 6/7, 7/8, 8/9, 9/10.5, 10/11.5, 12/14, 14/18, 17/22, 20/25, 25/30. 



2 \renewcommand\normalsize{7. 

3 \(§setf ontsize\normalsize\(§xpt-[ll . 5}- 7, 

4 \abovedisplayskip 10\p@ \@plus 2\p(§ \(§minus5\p@ 

5 \abovedisplayshortskip \z(§ \(§plus 3\p(§ 

6 \belowdisplayshortskip 6\p@ \@plus 3\p® \®minus3\p@ 

7 \belowdisplayskip \abovedisplayskip 

8 \let\(§listi\@listl} 
9 \normalsize 

10 \newcoiimiaiid\small-C°/» 

11 \®setf ontsize\small\(§ixpt{ 10 . 5}°/, 

12 \abovedisplayskip 8.5\p@ \(§plus3\p@ \@minus4\p@ 

13 \abovedisplayshortskip \z@ \(§plus2\p@ 

14 \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ 

15 \def \@listi{\leftmargin\leftmargini 

16 \topsep 4\p@ \(§plus2\p(9 \@minus2\p(S 

17 \parsep 2\p@ \@plus\p@ \@minus\p@ 

18 \itemsep Xparsep}-"/, 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newcommand\f ootnotesize{°/, 

22 \@setf ontsize\f ootnotesize\Sviiipt{9}°/o 

23 \abovedisplayskip 6\p@ \(§plus2\p@ \@minus4\p(S 

24 \abovedisplayshortskip \z@ \®plus\p@ 

25 \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@ 

26 \def \91isti{\lef tmargin\lef tmargini 

27 \topsep 3\p<§ \(§plus\p<§ \@minus\p@ 

28 \peirsep 2\pa \(Splus\p@ \@minus\p@ 

29 \itemsep \parsep}°/, 

30 \belowdisplayskip \abovedisplayskip 



31 } 

32 \newcommaiid\scriptsize-[\@setf ontsize\ script size\(§viipt\@viiipt} 

33 \newconmiand\little-[\(§setf orLtsize\little\i§vipt\@viipt} 

34 \newconmiand\tiiiy{\Qsetf ontsize\tiny\@vpt\@vipt} 

35 \newcommand\large{\@setf ontsize\large\@xiipt■[14}}■ 
36 \newcoimnand\Large{\@setf ontsize\Large\(§xivpt-[18}■]■ 
37 \newcoiiimand\LARGE{\(Ssetfontsize\LARGE\@xviipt{22>} 

38 \newconmiand\huge{\@setf ontsize\huge\<axxpt{25}} 

39 \newconmiand\Huge{\<asetf orLtsize\Huge\<axxvpt{30}} 
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1.2. Various values 

Note that \hoff set and \voff set are both compensated. This makes the calculations 
below easier. 

40 \setlength\hoff set-[-lin} 

41 \setlength\vof f set-C-lin} 

42 \setlength\parindent ■[14\p@} 

43 \setleiigth\headheight{12\p(a} 

44 \setlength\headsep -[12\p@} 

45 \setlength\topskip {10\p@> 

46 \setlength\footskip {27.5\p(§> 

47 \setleiigth\mcirgiiiparsep{10pt}- 

48 \setlength\margirLparpush{5\p@} 

49 \setlength\maxdepth -[ . 5\topskip} 

50 \setlength\@maxdepth\maxdepth 

51 \setlength\coluiimsep-[10pt]- 

52 \setlength\coliimiiseprule{Opt} 

53 \setlength\fboxsep{3pt} 

54 \setlerLgth\fboxrule{.4pt} 

1.3. Textheight and textwidth 

These are the main reason for the existence of these files. For some stupid reason, I^TgX 
calculates textwidth out of \paperwidth. We did want to support letter paper, but our 
\textwidth is fixed, with the margins being calculated. 

Presume \textwidth and \marginparwidth are set in the stylefile, or we're in trouble. 
The 2pc value is used to compensate for the 'dead' corners in most laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble and 
later on in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocuineiit-[y, 

57 \setlength\@tempdima{\paperwidth}y, 

58 \addtolength\@tempdima{-\textwidth}% 

59 \divide\®tempdima by 2 

60 \setlength\@tempdimb\marginparwidth 

61 \addtolength\@tempdimb\marginparsep 

62 \addtolength\@tempdimb{2pc>y, 

63 \ifdim XOtempdima <\@tempdimb 

64 \(§settopoint\(§tempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}-[}-[You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\niarginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\@tempdima) . Needed value: 

69 (\the\(§tempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 
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73 }7. 

74 \marginparwidth \z(§ 

75 \marginparsep \z<§ 

76 \f i 

77 \ifdim XQtempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advaiice\(§tempdimb by -4pc 

80 \(2settopoint\@tempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}-[}-[You 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total\MessageBreak 

84 (Which is: \the\®tempdimb) . Please press X and try again. 

85 }•/. 

86 \f i 

87 \oddsidemargin \(§tempdima 

88 \evensidemargin \@tempdima 

These calculations are a lot easier, \textheight should have been set already. This does 
not check for the correct placement of the identification line!! 

89 \setlength\@tempdima-C\paperheight} 

90 \addtolength\®tempdiina{-\f ootskip} 

91 \addtolength\@tempdima{-\headheight> 

92 \addtolength\@tempdima-[-\headsep} 

93 \setlength\(§tempdimb-[\(§tempdima}- 

94 \addtolength\@tempdima-C-\textheight}- 

95 \divide\@tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\@tempdimb by -4pc 

98 \(§settopoint\(§tempdimb 

99 \GenericError{Pointsize}-[Pointsize Error: Invalid sizes given}-{}-{You 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total. \MessageBreak 

102 (Which is: \the\@tempdimb) . Please press X and try again. 

103 >7. 

104 \fi 

105 \setlength\topmargin-C\(§tempdima} 

106 \setlength\id@boxheight{\@tempdima} 

107 \advance\id(Sboxheight by -2pc 

108 } 

109 \setlength\f ootnotesep{6 . 65\p(§> 

110 \setlength-C\skip\f ootins>{9\p@ \(§plus 4\p(S XOminus 2\p(a} 

1.4. Lists 

List default values 

111 \setlength\partopsep{2\p@ \@plus l\p(§ \@minus iNpO} 

112 \setlength{\lef tmargini]-{2em]- 

113 \setlength{\lef tmcirginii}-[2. 2em} 
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114 \setlength-[\lef tmcirginiii}-[l .87em} 

115 \setlength{\lef tmarginiv}-[l . 7em} 

116 \setlength{\lef tmarginv}{lem]- 

117 \setlength-[\leftmarginvi>{lem} 

118 \setlength-[\labelsep>{ . 4em> 

119 \setlength-[\labelwidth>{\lef tmargini> 

120 \ad<itolength-[\labelwidth>{-\labelsep> 

Note that lists below level 3 do nothing else then readjusting the \labelwidth.. This 
results in very small labels for the inner lists. 

121 \def \<§listir/. 

122 Meftmargin \lef tmargini 

123 \topsep 9\p@ \(§plus 3\p@ XOminus 5\p® 

124 \partopsep 3\p@ \@plus l\p@ XSminus 2\p@ 

125 \itemsep 4.5\p@ \@plus 2\p(§ \@minus l\p(§ 

126 \parsep 4.5\p@ \@plus 2\p@ \@minus l\p@ } 

127 \def \aiistii{y. 

128 Meftmargin \lef tmarginii 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p<§ \aplus 2\p@ \@minus l\p@ 

132 \parsep 2\p® \@plus l\p@ \@minus IXpO 

133 \itemsep \parsep} 

134 \def \@listiii-[y. 

135 Meftmargin \lef tmarginiii 

136 Mabelwidth Mef tmairginiii 

137 \advance\labelwidth by -Mabelsep 

138 \topsep 2\p(a \®plus l\p@ XOminus IXpO 

139 \parsep \z@ 

140 Xpairtopsep l\p@ \@plus 0\p@ \@minus l\p@ 

141 \itemsep \topsep} 

142 \def XOlistivH 

143 \setlength-[\lef tmargin}-{\lef tmarginiv}'/, 

144 \setlength{Mabelwidth}{\lef tmarginiv}"/, 

145 \addtolength{\labelwidth}-[-\labelsep}> 

146 \def \Slistv{y. 

147 \setlength{\lef tmargin}{\lef tmairginv}% 

148 \setlength-[\labelwidth>{\lef tmarginv}"/, 

149 \addtolength{Mabelwidth}{-Mabelsep}} 

150 \def \aiistvin 

151 \setlength-[\lef tmargin}{\lef tmarginvi}"/ 

152 \setlength-[\labelwidth}{\lef tmarginvi}'/, 

153 \addtolength-[\labelwidth}-[-\labelsep}> 

154 \let\@listi\(SlistI 

155 \aiisti 

1.5. Float separation parameters 
Separation on text pages. 
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156 \setlength\f loatsep{12\p@ \@plus 2\p@ \@minus 2\p@} 

157 \setlength\textf loatsep-[20\p(§ \(§plus 2\p(§ \(§minus 4\p@} 

158 \setlength\intextsep{12\p(§ \@plus 2\p@ \(§minus 2\p@> 

159 \setlength\dblf loatsep-[12\p@ \@plus 2\p@ XQminus 2\p@} 

160 \setlength\dbltextf loatsep{20\p(a \@plus 2\p<a XOminus 4\p(S} 

Separation on float pages 

161 \setleiigth\@fptop{0\p@ \@plus If il} 

162 \setlerLgth\@fpsep{8\p@ \@plus 2f il} 

163 \setlength\(3fpbot{0\p(§ \(§plus If il> 

164 \setlength\@dblfptop{0\p(§ \@plus If il> 

165 \setlength\@dblfpsep{8\p@ \(§plus 2f il} 

166 \setleiigth\@dblfpbot{0\p(a \@plus If il} 
167 

168 \endinput 
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1. Implementation 

1 \ProvidesFile{klutll.clo}[\filedate ] 

1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type 
provided values: 6/7, 7/8, 8/9, 9/10.5, 10/11.5, 11/12.5, 12/14, 14/18, 17/22, 
20/25, 25/30. 



2 \renewcommand\normalsize{°/o 

3 \(Ssetf ontsize\normalsize\9xipt{12 . S}"/, 

4 \abovedi splay skip 10\p@ \@plus 2\p@ \@minus5\p@ 

5 \abovedisplayshortskip \z(§ \@plus 3\p@ 

6 \belowdisplayshortskip 6\p(S \(Splus 3\pQ \Qininus3\pQ 

7 \belowdi splay skip \abovedi splay skip 

8 \let\@listi\@listl} 

9 Xnormalsize 

10 \newcoinmand\small{7. 

11 \@setf ontsize\small\@xpt{ll . 5>7. 

12 \abovedisplayskip 9\p(S \Splus3\p@ \@minus4\pQ 

13 \abovedi splay short skip XzO \(aplus2\p(S 

14 \belowdisplayshortskip 5\p(§ \(§plus2\p(S \(9minus2\p@ 

15 \def \(Slisti{\lef tmargin\lef tmargini 

16 \topsep 4\p(a \(aplus2\p(a \(aiiiinus2\p® 

17 \parsep 2\p@ \@plus\p@ \@niinus\p@ 

18 Xitemsep Xparsep}"/ 

19 \belowdi splay skip \abovedi splay skip 

20 } 

21 \iiewcoininajid\f ootnotesize{7o 

22 \@setf ontsize\f ootnotesize\(§ixpt{10 . 5}7, 

23 \abovedisplayskip 6\p@ \@plus2\p@ \@minus4\p(9 

24 \abovedisplayshortskip \z(3 \Qplus\p@ 

25 \belowdisplayshortskip 3\p@ \@plus\p@ \@ininus2\p@ 

26 \def\Qlisti-C\leftmargin\lef tmargini 

27 \topsep 3\pQ \Splus\pS \Siiiinus\p(S 

28 \parsep 2\p@ \(Splus\p@ \@ininus\p<§ 

29 \itemsep \parsep}7o 

30 \belowdisplayskip \abovedisplayskip 



31} 

32 \newcommand\scriptsize{\@setf oiitsize\scriptsize\@viiipt-C9 . S}}- 

33 \newcommaiid\little{\(3setf oiitsize\little\(Sviipt\@viiipt}- 

34 \newcoinmand\tiny{\@setf ontsizeXtinyXOviptXOviipt} 

35 \newcoinmaiid\large{\@setf ontsize\large\@xiipt{14}} 

36 \newcoiniiiaiid\Large{\@setf ontsize\Large\9xivpt{18}} 

37 \newcoinmand\LARGE{\@setf ontsize\LARGE\@xviipt{22}} 

38 \newcoinmaiid\huge{\(asetf ontsize\huge\(axxpt-C25}} 
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39 \newcoinmaiid\Huge-[\®setf ontsize\Huge\(axxvpt{30}} 

1.2. Various values 

Note that \hoffset and \voffset are both compensated. This makes the 
calculations below easier. 

40 \setlength\hoff set{-lin> 

41 \setlength\vof f set-[-lin} 

42 \setlength\parindent {14\p(a} 

43 \setlength\headheight{12\p@} 

44 \setlength\headsep {12\p(§> 

45 \setlength\topskip {10\p(§} 

46 \setlength\f ootskip {27.5\p®} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\pQ} 

49 \setlength\maxdepth -[ . 5\topskip} 

50 \setlength\@maxdepth\maxdepth 

51 \setlength\coluinnsep{10pt}- 

52 \setlength\coluinnseprule{Opt} 

53 \setlength\f boxsep{3pt} 

54 \setlength\f boxrule-[.4pt} 

1.3. Textheight and TEXTWIDTH 

These arc the main reason for the existence of these files. For some stupid reason, 
I^Te^ calculates textwidth out of \paperwidth. We did want to support letter 
paper, but our \textwidth is fixed, with the margins being calculated. 

Presume \textwidth and \inarginparwidth arc set in the stylefile, or we're in 
trouble. The 2pc value is used to compensate for the 'dead' corners in most 
laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble 
and later on in the stylefile. 

55 \newdimen\id(§boxheight 

56 \AtBeginDocuinent{7« 

57 \setlength\(Stempdima{\paperwidth}7o 

58 \addtolength\(atempdima{-\textwidth}7. 

59 \divide\(§tempdima by 2 

60 \setlength\Stempdimb\inargiiiparwidth. 

61 \addtolength\(3tempdimb\marginparsep 

62 \addtolength\(atempdimb{2pc}y. 

63 \ifdim XOtempdima <\(§tempdimb 

64 \@settopoint\@tempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}{}{You made 
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66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (NtheNOtempdima) . Needed value: 

69 (\the\@tempdimb) . \MessageBrecik 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 }7. 

74 \marginparwidth \z(3 

75 \marginparsep \z@ 

76 \f i 

77 \ifdim \@tempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advcince\@tempdimb by -4pc 

80 \<§settopoint\<atempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}-[}-[You 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available totalXMessageBreak 

84 (Which is: \the\@tempdimb) . Please press X and try again. 

85 }"/. 

86 \f i 

87 \oddsidemargin \@tempdima 

88 \evensidemargin \(§tempdima 



These calculations are a lot easier, \textheight should have been set already. 
This does not check for the correct placement of the identification line!! 

89 \setlength\@tempdima{\paperheight} 

90 \addtolength\@tempdima{-\f ootskip} 

91 \addtolength\@tempdima{-\headheight} 

92 \addtolength\(§tempdima{-\headsep} 

93 \setlength\@tempdimb{\@tempdima} 

94 \ addt o 1 ength\@t empdima{ -\t exthe ight } 

95 \divide\(3tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\(§tempdimb by -4pc 

98 \@settopoint\Qtempdimb 



99 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}-[}-[You 

100 made your \string\textheight\space (\the\textheight) 

101 more thein the available total . XMessageBreak 

102 (Which is: \the\@tempdimb) . Please press X and try again. 

103 }•/. 



104 \fi 

105 \setlength\topmargin{\Qtempdima} 

106 \setlength\id(aboxheight{\@tempdima} 

107 XadvanceXidQboxheight by -2pc 

108 } 
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109 \setlength\f ootnotesep{6 . 65\p@} 

110 \setlength{\skip\f ootins>{9\p@ \@plus 4\p@ \@minus 2\p@> 

1.4. Lists 

List default values 

111 \setlength\partopsep{2\p@ \@plus l\pQ \Qininus l\pS> 

112 \setlength{\lef tiiiargini}{2em} 

113 \setlength{\lef tmarginii}{2 . 2em} 

114 \setlength{\lef tmarginiii}{l . 87em} 

115 \setlength{\lef tmarginiv}{l .Tern} 

116 \setlength{\lef tmarginv}{lem} 

117 \setlength{\lef tmarginvi}{lem} 

118 \setlength{\labelsep}{ .4em} 

119 \setleiigth{\labelwidth}{\leftmargini} 

120 \addtolength{\labelwidth}-[-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. 
This results in very small labels for the inner lists. 

121 \def \(§listl{7. 

122 Meftmargin \lef tmargini 

123 \topsep 9\p@ \(§plus 3\p@ XOminus 5\p(S 

124 \partopsep 3\pQ \Qplus l\p@ \(Sminus 2\p@ 

125 \it emsep 4.5\p(§ \@plus 2\p(§ \(§minus l\p9 

126 \parsep 4.5\pQ XOplus 2\pQ \Qininus l\pQ } 

127 \def \(§listii{7. 

128 \leftmargin \lef tmarginii 

129 Xlabelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p(3 \@plus 2\p@ \@minus l\p® 

132 \parsep 2\p@ \@plus iXpS XSminus l\p(S 

133 Nitemsep \parsep} 

134 \def \91istiii{7. 

135 \leftmargin \lef tmarginiii 

136 \labelwidth. \leftmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\pQ \@plus l\p(S \(Sminus iXpO 

139 \parsep \z9 

140 \partopsep l\p@ XOplus 0\p@ \Qminus l\p(§ 

141 \itemsep \topsep)- 

142 \def \(§listiv{7. 

143 \setlength.-[\lef tmargin}{\lef tmarginiv}7o 

144 \setlength-[\labelwidth}{\lef tmargini v}7« 

145 \addtolength{\labelwidth}{-\labelsep}} 

146 \def \(aiistv{7. 
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147 \setlength-[\lef tmargin}-[\lef tmarginv}"/, 

148 \setlength{\labelwidth}{\lef tmarginv}°/o 

149 \addtolength{\labelwidth}{-\labelsep» 

150 \def \(§listvi{% 

151 \setlength{\lef tmargiii}{\lef tmarginvi}7« 

152 \setlength{\labelwidth}-[\leftmargiiivi}7. 

153 \addtolength{\labelwidth}{-\labelsep}} 
154 \let\@listi\@listl 

155 Xaiisti 

1.5. Float separation parameters 
Separation on text pages. 

156 \setlength\f loatsep{12\p@ \(§plus 2\p@ \@minus 2\p(§} 

157 \setlength\textf loatsep{20\pQ XOplus 2\pQ \Qininus 4\p(a} 

158 \setlength\iiitextsep{12\p@ \®plus 2\p@ \@ininus 2\p@> 

159 \setlength\dblf loatsep{12\p(§ \@plus 2\p(§ \(5minus 2\p(5> 

160 \setlength\dbltextf loatsep{20\p(a \Qplus 2\p(a XOminus 4\p(a} 

Separation on float pages 

161 \setlength\(afptop{0\p(a \Qplus If il} 

162 \setlength\(§fpsep-[8\p® \@plus 2f il} 

163 \setlength\(Sfpbot{0\p(§ \@plus If il} 

164 \setlength\(adblfptop{0\pQ \Oplus If il} 

165 \setlength\@dblfpsep{8\p@ \@plus 2f il} 

166 \setlength\@dblfpbot-[0\p@ \@plus If il} 
167 

168 Xendinput 
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1. Implementation 

1 \ProvidesFile{klutl2.clo}[\filedate ] 
1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type 
provided values: 6/7, 8/9, 9/10.5, 10/11.5, 11/12.5 12/13.5, 14/18, 17/22, 20/25, 
25/30. 

2 \renewcommand\normalsize{7o 



3 \@setf oiitsize\normalsize\@xiipt{13 . 5}% 

4 \abovedisplayskip ll\p@ \@plus 2\p(§ \@minus5\p@ 

5 \abovedisplayshortskip l\p@ \@plus 3\p@ 

6 \belowdisplayshortskip 7\p0 \@plus 3\p@ \@minus3\p@ 

7 \belowdisplayskip \abovedisplayskip 

8 \let\@listi\@listl} 
9 \normalsize 

10 \iiewcoininand\sinall{°/o 

11 \@setf ontsize\small\@xipt{12 . 5}% 

12 \abovedisplayskip 8.5\p@ \@plus3\p@ \@ininus4\p@ 

13 \abovedisplayshortskip \z@ \@plus2\p@ 

14 \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ 

15 \def \@listi{\lef tmargin\lef tmargini 

16 \topsep 4\p@ \@plus2\p@ \@minus2\p@ 

17 \parsep 2\p@ \@plus\p@ \@iiiinus\p@ 

18 \itemsep Xparsep}"/ 

19 \belowdisplayskip \abovedisplayskip 

20 > 

21 \iiewcoininand\f ootiiotesize{y„ 

22 \@setf ontsize\f ootnotesize\@xpt{ll . 5}% 

23 \abovedisplayskip 6\p@ \@plus2\p@ \@niinus4\p@ 

24 \abovedisplayshortskip \z@ \@plus\p@ 

25 \belowdisplayshortskip 3\p0 \(§plus\p@ \@miiius2\p@ 

26 \def \@listi{\lef tmargin\lef tmargini 

27 \topsep 3\p@ \@plus\p@ \@minus\p@ 

28 \parsep 2\p@ \@plus\p@ \@niinus\p@ 

29 \itemsep \parsep}% 

30 \belowdisplayskip \abovedisplayskip 
31} 



32 \newcoinmaiid\scriptsize{\@setf ontsize\scriptsize\@ixpt{10 . 5}} 

33 \iiewcoiniiiaiid\little-[\@setf ontsize\little\(^viiipt{9}]• 
34 \newcoiniiiaiid\tiny{\(§setf ontsize\tiny\@vipt\©viipt} 
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35 \iiewcoininand\large{\@setf oiitsize\large\@xivpt{18}} 

36 \newcoiiimaiid\Large{\(§setf ontsize\Large\@xviipt{22}} 

37 \newcommand\LARGE{\@setfontsize\LARGE\@xxpt{25» 

38 \iiewcoininand\huge{\@setf oiitsize\huge\@xxvpt{30}} 

39 \newcoiiimaiid\Huge{\@setf ontsize\Huge\@xxvpt{30}} 

1.2. Various values 

Note that \hoff set and \voff set are both compensated. This makes the calcula- 
tions below easier. 

40 \setlength\hoff set{-lin} 

41 \setlength\vof f set{-lin} 

42 \setlength\parindent {14\p@} 

43 \setleiigth\headheight{12\p0> 

44 \setlength\headsep {12\p@} 

45 \setlength\topskip {10\p@} 

46 \setlength\f ootskip {27 . 5\p@} 

47 \setleiigth\margiiiparsep{10pt} 

48 \setlength\marginparpush{5\p@} 

49 \setlength\maxdepth { . 5\topskip} 

50 \setleiigth\@maxdepth\maxdepth 

51 \setlength\coluiniisep{12pt} 

52 \setleiigth\coluiniiseprule{Opt]- 

53 \setlength\fboxsep{3pt} 

54 \setlength\fboxrule{ .4pt} 

1.3. Textheight and TEXTWIDTH 

These are the main reason for the existence of these files. For some stupid reason, 
calculates textwidth out of \paperwidth. We did want to support letter paper, 
but our \textwidth is fixed, with the margins being calculated. 

Presume \textwidth and \marginparwidth are set in the stylefile, or we're in 
trouble. The 2pc value is used to compensate for the 'dead' corners in most 
laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble 
and later on in the stylefile. 

55 \iiewdimeii\id@boxheight 

56 \AtBeginDocument{°/o 

57 \setlength\@tempdima{\paperwidth}°/o 

58 \addtolength\@tempdima{-\textwidth}% 
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59 \divide\@tempdima by 2 

60 \setleiigth\@tempdimb\iiiargiiiparwidth 

61 \addtolength\@tempdimb\marginparsep 

62 \addtolength\@tenipdinib{2pc}% 

63 \ifdim \@tempdima <\@tempdimb 

64 \@settopoint\@tempdiiiib 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}{}{You made 

66 your \striiig\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\(§tempdima) . Needed value: 

69 (\the\@tempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 }'/. 

74 \marginparwidth \z@ 

75 \marginparsep \z@ 

76 \fi 

77 \ifdim \@tempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advance\@tempdimb by -4pc 

80 \@settopoint\@tempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}{}{You 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total \MessageBreaJs 

84 (Which is: \the\@tempdimb) . Please press X and try again. 

85 }•/. 

86 \fi 

87 \oddsidemargin \@tempdima 

88 \evensidemargin \@tempdima 



These calculations are a lot easier, \textheight should have been set already. This 
does not check for the correct placement of the identification line!! 

89 \setlength\@tempdima{\paperheight} 

90 \addtolength\@tempdima{-\f ootskip} 

91 \addtolength\@tempdima{-\headheight3- 

92 \addtolength\@tempdima{-\headsep} 

93 \setlength\@tempdimb{\@tempdima} 

94 \addtolength\(§tempdima{-\textheight} 

95 \divide\@tempdima by 2 

96 \ifdim \(§tempdima <2pc 

97 \advance\@tempdimb by -4pc 

98 \@settopoint\@tempdimb 
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99 \GenericError{Poiiitsize}{Poiiitsize Error: Invalid sizes given}{}{You 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total . \MessageBreak 

102 (Which is: \the\@tenipdinib) . Please press X and try again. 

103 }% 

104 \fi 

105 \setlength\topmargin{\@tempdima} 

106 \setlength\id@boxheight{\Otenipdima} 

107 \advaiice\id@boxheight by -2pc 

108 } 

109 \setlength\f ootnotesep{6 . 65\p@} 

110 \setlength{\skip\f ootins}{12\p@ \(§plus 4\p(§ \@minus 2\p@} 

1.4. Lists 

List default values 

111 \setlength\partopsep{2\p@ \@plus l\p@ \@ininus l\p@} 

112 \setlength{\lef tmargini}{2em} 

113 \setlength{\lef tmarginii}{2 . 2em} 

114 \setlength{\lef tmarginiii}{l . 87eni} 

115 \setlength{\lef tinarginiv}{l .Tern} 

116 \setlength{\lef tmarginv}{lem} 

117 \setlength{\lef tinarginvi}{leni} 

118 \setlength{\labelsep}{.4eiii} 

119 \setlength{\labelwidth}{\lef tmargini} 

120 \addtolength{\labelwidth}{-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. This 
results in very small labels for the inner lists. 

121 \def\@listl{y, 

122 \leftmargin \leftmargini 

123 \topsep ll\p@ \@plus 3\p@ \@ininus 5\p(§ 

124 \partopsep 4.5\p@ \@plus l\p@ \@niinus 2\p@ 

125 Xitemsep 6\p@ \@plus 2\p@ \@minus l\p@ 

126 \parsep 6\p@ \@plus 2\p@ \@minus l\p@ > 

127 \def \@listii{% 

128 \leftmargin \lef tmarginii 

129 Mabelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 6\p@ \@plus 2\p@ \@minus l\p(§ 

132 \parsep 3\p@ \(§plus l\p@ \@minus l\p@ 
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133 \itemsep \parsep} 

134 \def \@listiii{% 

135 \leftmargin \lef tmarginiii 

136 Mabelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p(a \@plus l\p@ NOminus l\p@ 

139 \parsep \z@ 

140 \partopsep l\p@ \Oplus 0\pO \@niinus l\p@ 

141 \itemsep \topsep} 

142 \def \@listiv{°/, 

143 \setleiigth{\lef tmargiii}{\lef tiiiarginiv}yo 

144 \setlength{\labelwidth}{\leftmarginiv}°/o 

145 \addtolength{\labelwidth}{-\labelsep}} 

146 \def \@listv{7, 

147 \setleiigth{\lef tinargiii}{\lef tniarginv]-y„ 

148 \setlength{\labelwidth}{\lef tmarginv}°/o 

149 \addtolength{\labelwidth}{-\labelsep}} 

150 \def \@listvi{y, 

151 \setleiigth{\lef tinargiii}{\lef tmarginvi}"/. 

152 \setlength{\labelwidth}{\leftiiiarginvi}°/o 

153 \addtolength{\labelwidth}{-\labelsep}} 

154 \let\@listi\@listl 
155 \@listi 

1.5. Float separation parameters 

Separation on text pages. 

156 \setleiigth\f loatsep{12\p@ \@plus 2\p(a NOminus 2\p(§> 

157 \setlength\textf loatsep{24\p@ \@plus 2\p@ \@minus 4\p@} 

158 \setlength\intextsep{12\p@ \@plus 2\p(§ \@minus 2\p@> 

159 \setlength\dblf loatsep{12\p@ \@plus 2\p@ \@miiius 2\p@> 

160 \setlength\dbltextf loatsep{24\p@ \(3plus 2\p® NSminus 4\p@} 

Separation on float pages 

161 \setleiigth\@fptop{0\p@ \@plus If il} 

162 \setlength\@fpsep{10\p@ \@plus 2f il} 

163 \setlength\Ofpbot{0\p@ \(§plus If il} 

164 \setleiigth\@dblfptop{0\p@ \@plus If il} 

165 \setleiigth\@dblfpsep{10\p@ \@plus 2f il} 

166 \setlength\@dblfpbot{0\p@ \@plus If il} 
167 

168 Xendinput 
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1. Implementation 

1 \ProvidesFile{klul05.clo}[\filedate ] 

1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type 
provided values: 6/7, 7/8, 9/11, 10/11.5, 10.5/12, 11/13, 12/14, 14/18, 17/22, 
20/25, 25/30. 



2 \renewcommand\normalsize{7o 

3 XOsetf ontsize\normalsize{10. 5pt}{12}yo 

4 \abovedi splay skip 10\p@ \@plus 2\p@ \@minus5\p@ 

5 \abovedisplayshortskip \z(§ \@plus 3\p@ 

6 \belowdisplayshortskip 6\p(S \(Splus 3\pQ \Qininus3\pQ 

7 \belowdi splay skip \abovedi splay skip 

8 \let\@listi\@listl} 

9 Xnormalsize 

10 \newcoinmand\small{7. 

11 \@setf ontsize\small\@xpt{ll . 5>7. 

12 \abovedisplayskip 9\p(S \Qplus3\p@ \@minus4\pQ 

13 \abovedi splay short skip XzO \(aplus2\p(S 

14 \belowdisplayshortskip 5\p(§ \(§plus2\p(S \(9minus2\p@ 

15 \def \(Slisti{\lef tmargin\lef tmargini 

16 \topsep 4\p(a \(aplus2\p(a \(aiiiinus2\p® 

17 \parsep 2\p@ \@plus\p@ \@niinus\p@ 

18 Xitemsep Xparsep}"/ 

19 \belowdi splay skip \abovedi splay skip 

20 } 

21 \iiewcoininajid\f ootnotesize{7o 

22 \@setf ontsize\f ootnotesize\(§ixpt\(§xipt 

23 \abovedisplayskip 6\p@ \@plus2\p@ \@minus4\p(9 

24 \abovedisplayshortskip \z(3 \Qplus\pQ 

25 \belowdisplayshortskip 3\p@ \@plus\p@ \@ininus2\p@ 

26 \def\Qlisti-C\leftmargin\lef tmargini 

27 \topsep 3\pQ \Splus\pS \Siiiinus\p(S 

28 \parsep 2\p@ \(Splus\p@ \@ininus\p<§ 

29 \itemsep \parsep}7o 

30 \belowdisplayskip \abovedisplayskip 



31} 

32 \newcommand\scriptsize{\@setf oiitsize\scriptsize\@viiipt-C9 . S}}- 

33 \newcommaiid\little{\(3setf oiitsize\little\(Sviipt\@viiipt}- 

34 \newcoinmand\tiny{\@setf ontsizeXtinyXOviptXOviipt} 

35 \newcoinmaiid\large{\@setf ontsize\large\@xiipt{14}} 

36 \newcoiniiiaiid\Large{\@setf ontsize\Large\9xivpt{18}} 

37 \newcoinmand\LARGE{\@setf ontsize\LARGE\@xviipt{22}} 

38 \newcoinmaiid\huge{\(asetf ontsize\huge\(axxpt-C25}} 
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39 \newcoinmaiid\Huge-[\®setf ontsize\Huge\(axxvpt{30}} 

1.2. Various values 

Note that \hoffset and \voffset are both compensated. This makes the 
calculations below easier. 

40 \setlength\hoff set{-lin> 

41 \setlength\vof f set-[-lin} 

42 \setlength\parindent {14\p(a} 

43 \setlength\headheight{12\p@} 

44 \setlength\headsep {13\p(§]- 

45 \setlength\topskip {10\p(§} 

46 \setlength\f ootskip {27.5\p®} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\pQ} 

49 \setlength\maxdepth -[ . 5\topskip} 

50 \setlength\@maxdepth\maxdepth 

51 \setlength\coluinnsep{10pt}- 

52 \setlength\coluinnseprule{Opt} 

53 \setlength\f boxsep{3pt} 

54 \setlength\f boxrule-[.4pt} 

1.3. Textheight and TEXTWIDTH 

These arc the main reason for the existence of these files. For some stupid reason, 
I^Te^ calculates textwidth out of \paperwidth. We did want to support letter 
paper, but our \textwidth is fixed, with the margins being calculated. 

Presume \textwidth and \inarginparwidth arc set in the stylefile, or we're in 
trouble. The 2pc value is used to compensate for the 'dead' corners in most 
laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble 
and later on in the stylefile. 

55 \newdimen\id(§boxheight 

56 \AtBeginDocuinent{7« 

57 \setlength\(Stempdima{\paperwidth}7o 

58 \addtolength\(atempdima{-\textwidth}7. 

59 \divide\(§tempdima by 2 

60 \setlength\Stempdimb\inargiiiparwidth. 

61 \addtolength\(3tempdimb\marginparsep 

62 \addtolength\(atempdimb{2pc}y. 

63 \ifdim XOtempdima <\(§tempdimb 

64 \@settopoint\@tempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}{}{You made 
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66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (NtheNOtempdima) . Needed value: 

69 (\the\@tempdimb) . \MessageBrecik 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 }7. 

74 \marginparwidth \z(3 

75 \marginparsep \z@ 

76 \f i 

77 \ifdim \@tempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advcince\@tempdimb by -4pc 

80 \<§settopoint\<atempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}-[}-[You 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available totalXMessageBreak 

84 (Which is: \the\@tempdimb) . Please press X and try again. 

85 }"/. 

86 \f i 

87 \oddsidemargin \@tempdima 

88 \evensidemargin \(§tempdima 



These calculations are a lot easier, \textheight should have been set already. 
This does not check for the correct placement of the identification line!! 

89 \setlength\@tempdima{\paperheight} 

90 \addtolength\@tempdima{-\f ootskip} 

91 \addtolength\@tempdima{-\headheight} 

92 \addtolength\(§tempdima{-\headsep} 

93 \setlength\@tempdimb{\@tempdima} 

94 \ addt o 1 ength\@t empdima{ -\t exthe ight } 

95 \divide\(3tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\(§tempdimb by -4pc 

98 \@settopoint\Qtempdimb 



99 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}-[}-[You 

100 made your \string\textheight\space (\the\textheight) 

101 more thein the available total . XMessageBreak 

102 (Which is: \the\@tempdimb) . Please press X and try again. 

103 }•/. 



104 \fi 

105 \setlength\topmargin{\Qtempdima} 

106 \setlength\id(aboxheight{\@tempdima} 

107 XadvanceXidQboxheight by -2pc 

108 } 
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109 \setlength\f ootnotesep{6 . 65\p@} 

110 \setlength{\skip\f ootins>{9\p@ \@plus 4\p@ \@minus 2\p@> 

1.4. Lists 

List default values 

111 \setlength\partopsep{2\p@ \@plus l\pQ \Qininus l\pS> 

112 \setlength{\lef tiiiargini}{2em} 

113 \setlength{\lef tmarginii}{2 . 2em} 

114 \setlength{\lef tmarginiii}{l . 87em} 

115 \setlength{\lef tmarginiv}{l .Tern} 

116 \setlength{\lef tmarginv}{lem} 

117 \setlength{\lef tmarginvi}{lem} 

118 \setlength{\labelsep}{ .4em} 

119 \setleiigth{\labelwidth}{\leftmargini} 

120 \addtolength{\labelwidth}-[-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. 
This results in very small labels for the inner lists. 

121 \def \(§listl{7. 

122 Meftmargin \lef tmargini 

123 \topsep 9\p@ \(§plus 3\p@ XOminus 5\p(S 

124 \partopsep 3\pQ \Qplus l\p@ \(Sminus 2\p@ 

125 \it emsep 4.5\p(§ \@plus 2\p(§ \(§minus l\p9 

126 \parsep 4.5\pQ XOplus 2\pQ \Qininus l\pQ } 

127 \def \(§listii{7. 

128 \leftmargin \lef tmarginii 

129 Xlabelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p(3 \@plus 2\p@ \@minus l\p® 

132 \parsep 2\p@ \@plus iXpS XSminus l\p(S 

133 Nitemsep \parsep} 

134 \def \91istiii{7. 

135 \leftmargin \lef tmarginiii 

136 \labelwidth. \leftmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\pQ \@plus l\p(S \(Sminus iXpO 

139 \parsep \z9 

140 \partopsep l\p@ XOplus 0\p@ \Qminus l\p(§ 

141 \itemsep \topsep)- 

142 \def \(§listiv{7. 

143 \setlength.-[\lef tmargin}{\lef tmarginiv}7o 

144 \setlength-[\labelwidth}{\lef tmargini v}7« 

145 \addtolength{\labelwidth}{-\labelsep}} 

146 \def \(aiistv{7. 
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147 \setlength-[\lef tmargin}-[\lef tmarginv}"/, 

148 \setlength{\labelwidth}{\lef tmarginv}°/o 

149 \addtolength{\labelwidth}{-\labelsep» 

150 \def \(§listvi{% 

151 \setlength{\lef tmargiii}{\lef tmarginvi}7« 

152 \setlength{\labelwidth}-[\leftmargiiivi}7. 

153 \addtolength{\labelwidth}{-\labelsep}} 
154 \let\@listi\@listl 

155 Xaiisti 

1.5. Float separation parameters 
Separation on text pages. 

156 \setlength\f loatsep{12\p@ \(§plus 2\p@ \@minus 2\p(§} 

157 \setlength\textf loatsep{20\pQ XOplus 2\pQ \Qininus 4\p(a} 

158 \setlength\iiitextsep{12\p@ \®plus 2\p@ \@ininus 2\p@> 

159 \setlength\dblf loatsep{12\p(§ \@plus 2\p(§ \(5minus 2\p(5> 

160 \setlength\dbltextf loatsep{20\p(a \Qplus 2\p(a XOminus 4\p(a} 

Separation on float pages 

161 \setlength\(afptop{0\p(a \Qplus If il} 

162 \setlength\(§fpsep-[8\p® \@plus 2f il} 

163 \setlength\(Sfpbot{0\p(§ \@plus If il} 

164 \setlength\(adblfptop{0\pQ \Oplus If il} 

165 \setlength\@dblfpsep{8\p@ \@plus 2f il} 

166 \setlength\@dblfpbot-[0\p@ \@plus If il} 
167 

168 Xendinput 
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